(de traceBody (Functions . "Body")
  (mapc 'trace Functions)
  (finally (mapc 'untrace Functions)
    (thread "Body" car eval) ) )